home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / spoc88 / tbtasm / maxdemo.bas < prev    next >
BASIC Source File  |  1988-06-14  |  217b  |  18 lines
  1. CLS
  2. DEFINT A-Z
  3. DIM  A(100)
  4. RANDOMIZE(157)
  5. FOR I=1 TO 100
  6.         A(I)=10000*RND(9)
  7. NEXT
  8. MAXVAL=0
  9. COUNT=100
  10. CALL GTMAX(MAXVAL,A(1),COUNT)
  11. PRINT MAXVAL
  12. END
  13.  
  14. SUB  GTMAX  INLINE
  15.     $INLINE "TBMAX.BIN"
  16. END  SUB
  17.  
  18.